FillShape                Fills Arbitrary Shape with Color

 FillShape(X,Y,FillColor,BorderColor : Integer);                      [XG/TP]

    Fills the shape outlined by BorderColor with FillColor. The location
    (X,Y) is a point within the shape to be filled. The shape should be
    completely surrounded by BorderColor to avoid "leaking".

             X,Y    Screen coordinates (column, row); point within shape
                    in pixels.

       FillColor    Color (-1..3) to fill shape with. Selected from
                    palette (See Palette). If -1, selects color using
                    color translation table (See ColorTable).

     BorderColor    Color (-1..3) defining border of shape. Selected from
                    palette (See Palette). If -1, selects color using
                    color translation table (See ColorTable).

          Notes:    The extended graphics external declaration file
                    GRAPH.P must be included to use this procedure.

                    The video display must be in graphics mode before this
                    procedure is called.

  -------------------------------- Example ---------------------------------
           {$I GRAPH.P }

           GraphMode;
           Circle(160,100,80,1);    { draw circle }
           FillShape(160,100,3,1);  { and fill it }